home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 90 / 090.d81 / walt's 4 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  4KB  |  138 lines
  1. 1 poke55,0:poke56,56:clr:a$="":poke53281,0:poke53280,0
  2. 2 dv=peek(186):ifdv<8thendv=8
  3. 3 gosub60000:rem goto7
  4. 4 sys57812"scr/wp/unp",dv,0:poke780,0:poke781,0:poke782,196:sys65493
  5. 5 sys57812"input any.o",dv,0:poke780,0:poke781,60:poke782,3:sys65493
  6. 7 ip=828:un=51456:hg=51459:wp=50944:sc=50176
  7. 8 gosub1000
  8. 9 cl$="                                      "
  9. 12 dimg$(500)
  10. 15 sys50176,64,96,216
  11. 17 b$(0)="[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  12. 18 b$(1)="[221]                 [221]"
  13. 19 b$(2)="[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  14. 27 p=1:pt=0:e=1
  15. 28 rem goto100
  16. 30 open3,dv,3,"t.walt iv"
  17. 32 fori=0to1
  18. 35 sys828,3,40:h=h+1:i=st
  19. 37 g$(pt*19+h)=a$:ifh=19thenpt=pt+1:h=0
  20. 38 next:close3
  21. 40 syshg
  22. 100 poke53281,8:poke53280,8:print"[147]   [215][193][204][212]'[211] [215][207][210][203][211][200][207][208] [201][214]"tab(31)"[144] of"pt
  23. 101 print"[144][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  24. 102 fori=1to20:print"[221]"spc(38)"[221]";:next
  25. 103 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]";
  26. 104 fori=217to242:pokei,peek(i)or128:next
  27. 105 poke214,22:print:print"  ([206][144])ext  ([208][144])revious  ([198][144])irst  ([204][144])ast"
  28. 106 print"  (1[144]) through (8[144]) for picture  ([209][144])uit[158]"
  29. 108 print""tab(29)"  [157][157]"p"[158]"
  30. 110 forj=etoe+19
  31. 120 print""g$(j)
  32. 130 next
  33. 150 geta$:ifa$=""then150
  34. 160 ifa$>="1"anda$<="8"then200
  35. 165 ifa$=""ora$="n"thenifp<ptthenp=p+1:e=e+19:goto195
  36. 170 ifa$="[145]"ora$="p"thenifp>1thenp=p-1:e=e-19:goto195
  37. 175 ifa$="[157]"ora$="f"thene=1:p=1:goto195
  38. 180 ifa$=""ora$="l"thene=(pt-1)*19+1:p=pt:goto195
  39. 185 ifa$="q"then400
  40. 190 goto150
  41. 195 print"[145][145]":fork=1to20:printcl$"[145][145]":next:goto108
  42. 200 ifa$="6"thengosub500
  43. 205 ifa$=d$then250
  44. 210 d$=a$
  45. 220 print:printcl$:printcl$"[145][145][145]"
  46. 230 sys57812a$+".shp",dv,0:poke780,0:poke781,0:poke782,100:sys65493
  47. 250 poke251,100:poke252,64
  48. 260 poke253,96
  49. 270 print"[147]";:sysun:syshg:poke53280,0
  50. 280 poke198,0
  51. 290 geta$:ifa$=""then290
  52. 295 syshg
  53. 297 ifggthengg=0:gosub565
  54. 299 goto100
  55. 400 poke214,22:print:printcl$:printcl$"[145][145]"
  56. 405 print"        [209]uit[150] to [204][207][193][196][211][212][193][210]? (y[150]/n[150])"
  57. 410 geta$:ifa$<>"y"anda$<>"n"then410
  58. 420 ifa$="n"then105
  59. 430 open15,8,15,"r0:hello connect=hello connect":input#15,er%:close15
  60. 440 ifer%<>63thenprint"[147]":end
  61. 445 poke646,peek(53281)
  62. 450 print"[147]load"chr$(34)"hello connect"chr$(34)",8"
  63. 460 print"run"
  64. 470 poke631,13:poke632,13:poke198,2:end
  65. 500 print"[147]    [215][193][204][212]'[211] [211][208][197][195][201][193][204] [195][193][210][212][207][207][206] [198][197][193][212][213][210][197]"
  66. 505 print"[158]    [212]his is a hi-res picture of a scene
  67. 510 [153]" you might find in the comix.  (NULL)erhaps
  68. 515 print" you'd like to write a balloon caption
  69. 520 [153]" for the scene and print it out?
  70. 525 print"    [212]hanks to [200][201]-[210][197][211] [211][195][210][201][208][212][197][210] ([204][211] #78)
  71. 530 [153]" and (NULL)right$(NULL)str$(NULL)(NULL)(NULL)(NULL)right$(NULL)(NULL) ((NULL)(NULL) #86), two nifty
  72. 535 print" [205][204] routines by [211]cott [210]esh, it's easy.
  73. 540 [153]" (NULL)ake your pick:
  74. 545 print" (1[158]) [214]iew picture then enter caption
  75. 550 [153]" (2sys) (NULL)iew picture then return to             the (NULL)orkshop"
  76. 555 [161]aa$:[139]aa$[179]"1"[176]aa$[177]"2"[167]555
  77. 560 [139]aa$[178]"2"[167][142]
  78. 562 gg[178]1:[142]
  79. 565 [153]"load atnll right!  (NULL)ou'll have to keep the
  80. 570 print" caption short and pithy.  [217]ou have
  81. 575 [153]" four lines, each 16 characters long.
  82. 580 print" [208]ress [210][197][212][213][210][206] at the end of each line.
  83. 585 [153]" (NULL)hen the picture is displayed, press
  84. 590 print" [208][158] to print the picture to a 1525 or
  85. 595 [153]" valpson-compatible printer.  atnny other
  86. 597 print" key will skip the printing."
  87. 600 print"    "b$(0)
  88. 605 fori=0to3:print"    "b$(1):next
  89. 610 print"    "b$(2)
  90. 615 poke214,13:print
  91. 620 fori=0to3:print"";:gosub50000:m$(i)=q9$+chr$(13):next
  92. 625 print"[158] [201]s that how you want it? (y[158]/n[158])
  93. 630 [161]aa$:[139]aa$[179][177]"y"[175]aa$[179][177]"n"[167]630
  94. 635 [139]aa$[178]"n"[167]565
  95. 640 [158]hg
  96. 642 [151]56334,[194](56334)[175]254:[151]1,[194](1)[175]251
  97. 645 [158]50182,1,12,""[170]"stop"[170]b$(0)
  98. 647 [129]i[178]0[164]3:[158]50182,1,13[170]i,b$(1):[130]
  99. 649 [158]50182,1,17,b$(2)
  100. 650 [129]i[178]0[164]3:[158]50182,2,13[170]i,m$(i):[130]
  101. 652 [151]1,[194](1)[176]4:[151]56334,[194](56334)[176]1
  102. 655 [151]198,0
  103. 660 [161]aa$:[139]aa$[178]""[167]660
  104. 662 [139]aa$[179][177]"p"[167]670
  105. 665 [159]4,4:[152]4:[160]4:[139]st[178]0[167]667
  106. 666 [158]hg:[153]"load  (NULL)urn your printer on!":[129]t[178]0[164]2000:[130]:[158]hg:[137]655
  107. 667 [151]wp[170]10,64:[158]wp
  108. 670 [158]hg
  109. 675 [153]"load":[142]
  110. 1000 [158]57812"logo.shp",dv,0:[151]780,0:[151]781,0:[151]782,100:[158]65493
  111. 1010 [151]251,100:[151]252,64
  112. 1020 [151]253,96
  113. 1030 [153]"load";:[158]un:[158]hg:[151]53280,0
  114. 1050 [142]
  115. 10000 [159]15,8,15,"s0:walt's 4":[160]15:[148]"walt's 4",8:[128]
  116. 50000 q9$[178]"":u9[178]53280:[151]198,0
  117. 50010 [161]aa$
  118. 50020 [151]646,[187](1)[172]15[170]1:[153]"tocmd";:[139]aa$[178]""[167]50010
  119. 50030 [139]aa$[178][199](13)[167][153]" ":[142]
  120. 50040 [139](aa$[178][199](20)[175][195](q9$))[167]q9$[178][200](q9$,[195](q9$)[171]1):[137]50090
  121. 50050 [139][195](q9$)[177][178]16[167]t9%[178][194](u9):[151]u9,1:[151]u9,t9%:[137]50010
  122. 50060 [139]aa$[179]" "[176](aa$[177][199](127)[175]aa$[179][199](160))[176]aa$[178][199](34)[167]50010
  123. 50070 q9$[178]q9$[170]aa$
  124. 50080 [153]""aa$;:[137]50010
  125. 50090 [153]" cmdcmd cmd";:[137]50010
  126. 60000 [153]"loadlist         atnn verify(NULL)uthouse list(NULL)roduction"
  127. 60005 b9$[178]"                                      "
  128. 60010 [151]214,14:[153]:[153]"  listfrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefreprint#"
  129. 60020 [129]i[178]0[164]7:[153]b9$:[130]:[153]"  pokeposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposprint#"
  130. 60030 b9$(0)[178]"(NULL)atn(NULL)(NULL)'(NULL) (NULL)(NULL)(NULL)(NULL)(NULL)left$(NULL)(NULL) right$(NULL)
  131. 60040 b9$(1)="by [215]alt [200]arned"
  132. 60050 b9$(2)="([195]) 1991 by [211]oftdisk, [201]nc."
  133. 60060 b9$(3)="[208]ublished on [204][207][193][196][211][212][193][210] #90"
  134. 60070 b9$(4)="[211]ubscriptions 1-800-831-2694"
  135. 60080 b9$(5)="[193]ll [210]ights [210]eserved"
  136. 60090 poke214,16:print:fori=0to5:printtab(20-(len(b9$(i))/2))""b9$(i):next
  137. 60099 return
  138.